;; 测试字符串比较错误处理
;; 验证 R4RS 标准 - = 运算符只能用于数值比较

(display "=== 字符串比较错误测试 ===")
(newline)

;; 测试 1: 尝试用 = 比较字符串
(display "测试用 = 比较字符串：")
(newline)
(= "hello" "hello")
(newline)

;; 测试 2: 尝试用 > 比较字符串
(display "测试用 > 比较字符串：")
(newline)
(> "hello" "world")
(newline)

(display "测试完成")
(newline)